unit USDMServerMethods;

interface

uses
  SysUtils, Classes, DSServer;

type
  TSDMServerMethods = class(TDSServerModule)
  private
    { Private declarations }
  public
    { Public declarations }
    function EchoString(Value: string): string;
  end;

var
  SDMServerMethods: TSDMServerMethods;

implementation

{$R *.dfm}

function TSDMServerMethods.EchoString(Value: string): string;
begin
  Result := Value;
end;

end.




